home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / blinds / blinds3.wwModel / controls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  3.5 KB  |  78 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. WWThumbWheel
  7. PAThumbWheel
  8. Control
  9.     Responder
  10. WWTextField
  11.     TextField
  12. WWTextFieldCell
  13. TextFieldCell
  14. ActionCell
  15. GorhamType$
  16. $set slat(xRotate) %f; synchWithScene
  17. slat(xRotate)
  18. WWThumbWheelCell
  19. PAThumbWheelCell
  20.     Helvetica
  21. 0set  slat(percentageExtended) %f; synchWithScene
  22. slat(percentageExtended)
  23. Matrix
  24. @:@iiii
  25. ButtonCell
  26. Radio
  27. NXImage
  28. control_stop
  29. control_stopH
  30. control_play
  31. control_playH
  32. control_pause
  33. control_pauseH
  34. ff@@#::s
  35. NXradio
  36. NXradioH
  37. set open(duration) %f
  38. open(duration)
  39. close
  40. WWColorWell
  41. NXColorWell
  42. (set blinds(color) {%f %f %f}; updateView
  43. blinds(color)
  44. blinds
  45. WindowTemplate
  46. iiii***@s@
  47. Slat controls
  48. Panel
  49.     WWTTTimer
  50. @:diciffffc
  51. aset slat(oldXRotate) $slat(xRotate);
  52. openMotorProgram $open(u) $open(initialRotate); 
  53. set open(ticksPassed) [synchWithScene]; 
  54. set open(u) [expr $open(u) + ($open(uIncr) * $open(ticksPassed))];  
  55. if {$slat(oldXRotate) < 0 && $slat(xRotate) > 0} {set open(changedSign) 1} {};
  56. if {$slat(oldXRotate) > 0 && $slat(xRotate) < 0} {set open(changedSign) 1} {};
  57. preOpen
  58. .$slat(xRotate) != 0 && $open(changedSign) == 0
  59. closeMotorProgram $close(u) $close(initialRotate); 
  60. set close(ticksPassed) [synchWithScene]; 
  61. set close(u) [expr $close(u) + ($close(uIncr) * $close(ticksPassed))];  
  62. preClose
  63. +$slat(xRotate) < 75 && $slat(xRotate) > -75
  64. controls
  65. File's Owner
  66. [15@]
  67. IBOutletConnector
  68. IBConnector
  69. controlPanel
  70. interp
  71. stopButton
  72. startButton
  73. pauseButton
  74. IBControlConnector
  75. stop:
  76. start:
  77. pause:
  78.